home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Arcade / COM-PATRIOT.SDA / COM-PATRIOT INST (.txt) next >
Encoding:
Commodore BASIC  |  2019-04-13  |  2.5 KB  |  52 lines
  1. 0 ::::::::::::: (null) TO 10 :::::::::::::    ::::::::::::::::::::::::::::::::::::
  2. 1 :::                              :::    :::    FROM Q-LINK- DISK # 77    :::
  3. 2 :::                              :::    :::    ORIGINAL NAME 'GUIDED'    :::
  4. 3 :::                              :::    ::: INSTRUCTIONS,  SOUND & COLOR :::
  5. 5 :::                              :::    :::         BY JIM GREEN         :::
  6. 6 :::                              :::    ::::::::::::::::::::::::::::::::::::
  7. 7 :::::::::::::::::::::::::::::::::::: .
  8. 10 PRINT"[147][142]":POKE53280,15:POKE53281,15:K=0
  9. 15 PRINT"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
  10. 20 PRINT"[221]   [146][208]  [146][208][188] [146][208][208][188] [146][208][208]  [146][208]  [146][205]  [146][208]  [146][208]  [146][208]        [221]";
  11. 25 PRINT"[221]   [146]   [146][167]  [146][167][167]  [146][167][167]  [146][167]  [146][167]  [146][167]  [146][186]  [146][192]        [221]";
  12. 30 PRINT"[221]  [154] [146][186]  [146][186]  [146][167][167]  [146][167][167]  [146][186]  [146][186]  [146][186]  [146][205]  [146][186]        [221]";
  13. 35 PRINT"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]":GOSUB220
  14. 40 IFPU=1THENGOSUB220:PRINT""
  15. 45 PRINT"[145][221]    "U$" [146][208]  [146][208] [207] [146][208]  [146][208] [197][146]  [146][208] [207] [146][208]  [221]";:GOSUB220
  16. 50 PRINT"[221][162][162]"U$"  [146][186]  [146][186]   [146]   [146][186]  [146]  [146][167]   [146]   [221]";:GOSUB220
  17. 55 PRINT"[221]   "U$" [146]   [146][167]   [146]   [146][205]  [146]  [146][186]   [146]   [221]";
  18. 60 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]";:IFPU=1THEN75
  19. 65 IFPU=0THENFORD=1TO2E3:NEXT:PU=1:FORT=1TO13:PRINT:FORD=1TO60:NEXT:NEXT
  20. 70 FORD=1TO850:NEXT:GOSUB215:GOTO40
  21. 75 PRINT"[151]   THE MARVELOUS COM-PATRIOT MISSILE.   ";
  22. 80 PRINT"  IT WILL INTERCEPT AND DESTROY ENEMY   ";
  23. 85 PRINT"   SHIPS, USING A VERY SOPHISTICATED    ";
  24. 90 PRINT" COMPUTER: THE ONE FOUND IN YOUR BRAIN. ";
  25. 95 PRINT"           [197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197] ";
  26. 100 PRINT"    SHIPS FLY OVER ONE AT A TIME AND    ";
  27. 105 PRINT"  YOUR COMPUTER BRAIN MUST LOCK ON THE  ";
  28. 110 PRINT"     SHIP AND HIT IT TO DESTROY IT.
  29. 115 [153]"    PRESS <SPACE> TO SEE WHAT'S NEXT"
  30. 120 [161]G$:[139]G$[179][177]" "[167]40
  31. 125 [153]"LOAD            ANDANDANDANDANDANDANDANDANDANDANDANDANDANDAND  "
  32. 130 [153]"            WAIT LEN(null)CONT(null) TAN (null)ATNCONT(null)(null)RIGHT$CONT(null)(null)   "
  33. 135 [153]"            USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR  "
  34. 140 [153]"POKE (null)SE JOYSTICK IN PORT TWO OR KEYBOARD.
  35. 145 PRINT" [202]OYSTICK [204][197][198][212] AND [210][201][199][200][212] MOVES MISSILE
  36. 150 [153]"   LAUNCHER AND MISSILE AFTER FIRING.
  37. 155 PRINT"  [193]FTER MISSILE IS FIRED USE JOYSTICK
  38. 160 [153]"         TO HELP INTERCEPT SHIP.
  39. 165 PRINT" [207]R USE [195][213][210][211][207][210] KEYS INSTEAD OF JOYSTICK.
  40. 170 [153]"   MID$OYSTICK STR$(null)(null)(null) OR FIRE BUTTON WILL
  41. 175 PRINT"   FIRE MISSILE AND IF PRESSED AFTER
  42. 180 [153]"FIRING, MISSILE WILL RETURN TO LAUNCHER";
  43. 185 [153]"   AND FIRE AGAIN. (null)R USE (null)(null)ATNLENVAL BAR.
  44. 190 PRINT"    [209] WILL ABORT MISSILE OR PRESS [213][208]
  45. 195 [153]"               ON JOYSTICK.
  46. 200 PRINT"         [208]RESS[160]<[211][208][193][195][197]>[160]TO LOAD.
  47. 205 [161]G$:[139]G$[179][177]" "[167]205
  48. 210 F$[178]"COM-PATRIOT":[153]"LOADRETURNLISTLOADF$,8PRINT#":[151]198,2:[151]631,19:[151]632,131:[128]
  49. 215 [129]T[178]6[164]9:[151]781,T:[158]59903:[130]:K[178]0:[142]
  50. 220 K[178]K[170]1:C$[178]"CONTCONTCONTCONTCONT":U$[178][202](C$,K,1):[139]K[178]12[167]K[178]0
  51. 225 [129]D[178]1[164]40:[130]:[142]
  52.